﻿object dmreport: Tdmreport
  OldCreateOrder = False
  Height = 273
  Width = 811
  object frxdsCarnes: TfrxDBDataset
    UserName = 'frxdsCarnes'
    CloseDataSource = False
    FieldAliases.Strings = (
      'nome=nome'
      'cod_contrato=cod_contrato'
      'cod_parcelacontrato=cod_parcelacontrato'
      'cod_contrato_1=cod_contrato_1'
      'data_emissao=data_emissao'
      'data_vencimento=data_vencimento'
      'data_pagto=data_pagto'
      'valor_parcela=valor_parcela'
      'desconto=desconto'
      'status=status'
      'acrescimo=acrescimo')
    DataSet = qryGeraCarnes
    BCDToCurrency = False
    Left = 32
    Top = 80
  end
  object dsCarnes: TDataSource
    DataSet = qryGeraCarnes
    Left = 32
    Top = 144
  end
  object qryGeraCarnes: TZQuery
    Connection = DataModule1.Connection
    Active = True
    SQL.Strings = (
      'select '
      '     cl.nome, c.cod_contrato, pc.*'
      'from parcelascontrato pc'
      '     join contratos c on c.cod_contrato = pc.cod_contrato'
      '     join clientes cl on c.cod_cliente = cl.cod_cliente'
      'where cl.cod_cliente = 3615  and pc.data_pagto is null'
      'order by pc.data_vencimento ')
    Params = <>
    Left = 32
    Top = 216
    object wdstrngfldGeraCarnesnome: TWideStringField
      FieldName = 'nome'
      Size = 80
    end
    object intgrfldGeraCarnescod_contrato: TIntegerField
      FieldName = 'cod_contrato'
      Required = True
    end
    object intgrfldGeraCarnescod_parcelacontrato: TIntegerField
      FieldName = 'cod_parcelacontrato'
      Required = True
    end
    object intgrfldGeraCarnescod_contrato_1: TIntegerField
      FieldName = 'cod_contrato_1'
    end
    object dtmfldGeraCarnesdata_emissao: TDateTimeField
      FieldName = 'data_emissao'
    end
    object dtmfldGeraCarnesdata_vencimento: TDateTimeField
      FieldName = 'data_vencimento'
      DisplayFormat = 'mm/yyyy'
    end
    object dtmfldGeraCarnesdata_pagto: TDateTimeField
      FieldName = 'data_pagto'
    end
    object fltfldGeraCarnesvalor_parcela: TFloatField
      FieldName = 'valor_parcela'
      currency = True
    end
    object fltfldGeraCarnesdesconto: TFloatField
      FieldName = 'desconto'
      currency = True
    end
    object mfldGeraCarnesstatus: TMemoField
      FieldName = 'status'
      BlobType = ftMemo
    end
    object fltfldGeraCarnesacrescimo: TFloatField
      FieldName = 'acrescimo'
      currency = True
    end
  end
  object frxrprtCarnes: TfrxReport
    Version = '4.9'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 40878.972473275500000000
    ReportOptions.LastChange = 38763.890156909700000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 32
    Top = 16
    Datasets = <
      item
        DataSet = frxdsCarnes
        DataSetName = 'frxdsCarnes'
      end>
    Variables = <>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      Columns = 1
      ColumnWidth = 190.000000000000000000
      ColumnPositions.Strings = (
        '0')
      Duplex = dmVertical
      PrintIfEmpty = False
      TitleBeforeHeader = False
      object MasterData2: TfrxMasterData
        Description = 'teste'
        Height = 217.322834650000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        Columns = 1
        ColumnGap = 1133.858267716540000000
        DataSet = frxdsCarnes
        DataSetName = 'frxdsCarnes'
        PrintChildIfInvisible = True
        RowCount = 0
        object Shape3: TfrxShapeView
          Left = 7.559060000000000000
          Width = 353.385597320000000000
          Height = 217.322834650000000000
          ShowHint = False
        end
        object BarCode3: TfrxBarCodeView
          Left = 18.897650000000000000
          Top = 75.590600000000000000
          Width = 134.000000000000000000
          Height = 132.283469450000000000
          ShowHint = False
          BarType = bcCode128A
          DataField = 'cod_parcelacontrato'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Rotation = 0
          Text = '500000000'
          WideBarRatio = 2.000000000000000000
          Zoom = 1.000000000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
        end
        object Memo15: TfrxMemoView
          Left = 56.692950000000000000
          Width = 249.448980000000000000
          Height = 22.677180000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Parcela de Plano ASBAF')
          ParentFont = False
        end
        object Memo16: TfrxMemoView
          Left = 92.606370000000000000
          Top = 28.118120000000000000
          Width = 260.787325910000000000
          Height = 45.354360000000000000
          ShowHint = False
          DataField = 'nome'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."nome"]')
          ParentFont = False
        end
        object Memo17: TfrxMemoView
          Left = 13.897650000000000000
          Top = 29.236240000000000000
          Width = 75.590563390000000000
          Height = 15.118120000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Conveniado:')
          ParentFont = False
        end
        object Memo18: TfrxMemoView
          Left = 224.551330000000000000
          Top = 165.078850000000000000
          Width = 128.504020000000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'valor_parcela'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."valor_parcela"]')
          ParentFont = False
        end
        object Memo19: TfrxMemoView
          Left = 159.960730000000000000
          Top = 165.078850000000000000
          Width = 56.692950000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Valor:')
          ParentFont = False
        end
        object Memo20: TfrxMemoView
          Left = 246.008040000000000000
          Top = 76.031540000000000000
          Width = 105.826717950000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'data_vencimento'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."data_vencimento"]')
          ParentFont = False
        end
        object Memo21: TfrxMemoView
          Left = 158.740260000000000000
          Top = 75.590600000000000000
          Width = 79.370007950000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Vencimento:')
          ParentFont = False
        end
        object Memo22: TfrxMemoView
          Left = 244.228510000000000000
          Top = 123.606370000000000000
          Width = 113.385900000000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'cod_contrato'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."cod_contrato"]')
          ParentFont = False
        end
        object Memo23: TfrxMemoView
          Left = 158.740260000000000000
          Top = 123.606370000000000000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Contrato:')
          ParentFont = False
        end
        object Shape4: TfrxShapeView
          Left = 362.834880000000000000
          Width = 353.385597320000000000
          Height = 217.322834650000000000
          ShowHint = False
        end
        object BarCode4: TfrxBarCodeView
          Left = 374.173470000000000000
          Top = 75.590600000000000000
          Width = 134.000000000000000000
          Height = 132.283469450000000000
          ShowHint = False
          BarType = bcCode128A
          DataField = 'cod_parcelacontrato'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Rotation = 0
          Text = '500000000'
          WideBarRatio = 2.000000000000000000
          Zoom = 1.000000000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
        end
        object Memo24: TfrxMemoView
          Left = 411.968770000000000000
          Width = 249.448980000000000000
          Height = 22.677180000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Parcela de Plano ASBAF')
          ParentFont = False
        end
        object Memo25: TfrxMemoView
          Left = 447.882190000000000000
          Top = 28.118120000000000000
          Width = 260.787325910000000000
          Height = 45.354360000000000000
          ShowHint = False
          DataField = 'nome'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."nome"]')
          ParentFont = False
        end
        object Memo26: TfrxMemoView
          Left = 369.173470000000000000
          Top = 29.236240000000000000
          Width = 75.590563390000000000
          Height = 15.118120000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Conveniado:')
          ParentFont = False
        end
        object Memo27: TfrxMemoView
          Left = 579.827150000000000000
          Top = 165.078850000000000000
          Width = 128.504020000000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'valor_parcela'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."valor_parcela"]')
          ParentFont = False
        end
        object Memo28: TfrxMemoView
          Left = 515.236550000000000000
          Top = 165.078850000000000000
          Width = 56.692950000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Valor:')
          ParentFont = False
        end
        object Memo29: TfrxMemoView
          Left = 601.283860000000000000
          Top = 76.031540000000000000
          Width = 105.826717950000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'data_vencimento'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."data_vencimento"]')
          ParentFont = False
        end
        object Memo30: TfrxMemoView
          Left = 514.016080000000000000
          Top = 75.590600000000000000
          Width = 79.370007950000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Vencimento:')
          ParentFont = False
        end
        object Memo31: TfrxMemoView
          Left = 599.504330000000000000
          Top = 123.606370000000000000
          Width = 113.385900000000000000
          Height = 18.897650000000000000
          ShowHint = False
          DataField = 'cod_contrato'
          DataSet = frxdsCarnes
          DataSetName = 'frxdsCarnes'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            '[frxdsCarnes."cod_contrato"]')
          ParentFont = False
        end
        object Memo32: TfrxMemoView
          Left = 514.016080000000000000
          Top = 123.606370000000000000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Contrato:')
          ParentFont = False
        end
        object Memo1: TfrxMemoView
          Left = 302.362400000000000000
          Top = 204.094620000000000000
          Width = 52.913383390000000000
          Height = 15.118120000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Via ASBAF')
          ParentFont = False
        end
        object Memo2: TfrxMemoView
          Left = 665.197280000000000000
          Top = 204.094620000000000000
          Width = 52.913383390000000000
          Height = 15.118120000000000000
          ShowHint = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -8
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8W = (
            'Via cliente')
          ParentFont = False
        end
      end
    end
  end
  object dsParcAtraso: TDataSource
    DataSet = qryParcAtraso
    Left = 120
    Top = 144
  end
  object qryParcAtraso: TZQuery
    Connection = DataModule1.Connection
    Active = True
    SQL.Strings = (
      
        'Select cl.nome AS "Nome",cl.fone, pc.cod_contrato as "C'#243'digo Con' +
        'trato", pc.cod_parcelacontrato '
      
        ' as "C'#243'digo Parcela Contrato", pc.data_emissao as "Data Emiss'#227'o"' +
        ', '
      
        ' pc.data_vencimento as "Data Vencimento", pc.valor_parcela as "V' +
        'alor Parcela (R$)", '
      ' pc.status as "Status", pc.data_pagto as "Data Pagamento" '
      
        ' from parcelascontrato pc inner join contratos ct on ct.cod_cont' +
        'rato = pc.cod_contrato '
      ' inner JOIN clientes cl on cl.cod_cliente = ct.cod_cliente '
      
        ' where pc.data_pagto is null and pc.data_vencimento < CURRENT_DA' +
        'TE '
      ' ORDER BY pc.status')
    Params = <>
    Left = 120
    Top = 216
    object tblParcAtrasoNome: TWideStringField
      FieldName = 'Nome'
      Size = 80
    end
    object wdstrngfldParcAtrasofone: TWideStringField
      FieldName = 'fone'
    end
    object tblParcAtrasoCódigoContrator: TIntegerField
      FieldName = 'C'#243'digo Contrato'
    end
    object tblParcAtrasoCódigoParcelaContrato: TIntegerField
      FieldName = 'C'#243'digo Parcela Contrato'
      Required = True
    end
    object tblParcAtrasoDataEmissão: TDateTimeField
      FieldName = 'Data Emiss'#227'o'
    end
    object tblParcAtrasoDataVencimento: TDateTimeField
      FieldName = 'Data Vencimento'
    end
    object tblParcAtrasoValorParcelaR: TFloatField
      FieldName = 'Valor Parcela (R$)'
      currency = True
    end
    object tbParcAtrasoStatus: TMemoField
      FieldName = 'Status'
      BlobType = ftMemo
    end
    object tblParcAtrasoDataPagamento: TDateTimeField
      FieldName = 'Data Pagamento'
    end
  end
  object dsRecebimentosDia: TDataSource
    DataSet = qryRecebimentosDia
    Left = 360
    Top = 144
  end
  object qryRecebimentosDia: TZQuery
    Connection = DataModule1.Connection
    SQL.Strings = (
      'Select ct.cod_contrato AS "C'#243'digo Contrato",'
      '       rc.cod_parcelacontrato as "C'#243'digo Parcela Contrato",'
      '       rc.nomecliente as "Nome",'
      '       rc.valor as "Valor (R$)",'
      '       pc.valor_parcela as "Valor Parcela (R$)",'
      '       pc.data_vencimento as "Data Vencimento",'
      '       u.login_usuario as "Usu'#225'rio"'
      'from recebimentos rc'
      '     LEFT JOIN parcelascontrato pc on pc.cod_parcelacontrato ='
      '      rc.cod_parcelacontrato'
      '     LEFT JOIN contratos ct on ct.cod_contrato = pc.cod_contrato'
      '     LEFT Join usuario u on u.cod_usuario = rc.cod_usuario'
      'where "data" = CURRENT_DATE')
    Params = <>
    Left = 352
    Top = 216
    object tblRecebimentosDiaCódigoContrato: TIntegerField
      FieldName = 'C'#243'digo Contrato'
      Required = True
    end
    object tblRecebimentosDiaCódigoParcelaContrato: TIntegerField
      FieldName = 'C'#243'digo Parcela Contrato'
    end
    object tblRecebimentosDiaNome: TWideStringField
      FieldName = 'Nome'
      Size = 256
    end
    object tblRecebimentosDiaValorR: TFloatField
      FieldName = 'Valor (R$)'
      currency = True
    end
    object tblRecebimentosDiaValorParcelaR: TFloatField
      FieldName = 'Valor Parcela (R$)'
      currency = True
    end
    object tblRecebimentosDiaDataVencimento: TDateTimeField
      FieldName = 'Data Vencimento'
    end
    object wdstrngfldRecebimentosDiaUsuário: TWideStringField
      FieldName = 'Usu'#225'rio'
      Size = 100
    end
  end
  object dsExtrasAtraso: TDataSource
    DataSet = qryExtrasAtraso
    Left = 240
    Top = 144
  end
  object qryExtrasAtraso: TZQuery
    Connection = DataModule1.Connection
    Params = <>
    Left = 240
    Top = 216
  end
  object dsRecebimentosPeriodo: TDataSource
    DataSet = qryRecebimentosPeriodo
    Left = 688
    Top = 144
  end
  object qryRecebimentosPeriodo: TZQuery
    Connection = DataModule1.Connection
    Params = <>
    Left = 688
    Top = 216
  end
  object dsPrevisaoRecebimentos: TDataSource
    DataSet = qryPrevisaoRecebimentos
    Left = 504
    Top = 144
  end
  object qryPrevisaoRecebimentos: TZQuery
    Connection = DataModule1.Connection
    Params = <>
    Left = 504
    Top = 216
  end
end
